Aminet 12

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / lang / HeliOS3.lha / helios_demo_disk3 / source / Demo6_SimpleAnim.src < prev next >

Wrap

Text File | 1995-11-11 | 27.5 KB | 971 lines

\ *********************************************************** \ \ SIMPLE ANIMATION DEMO \ \ *********************************************************** \ \ This code demonstrates how to create a simple animation \ in HeliOS. \ \ This builds upon the following Demos: \ \ Demo1_SinglePF.src \ Demo2_SinglePFCopper.src \ Demo3_SimpleSprite.src \ Demo4_MultiSprites.src \ Demo5_MultiSptCollide.src \ \ This code is then expanded in the following Demos: \ \ Demo7_MultiAnim.src \ \ *********************************************************** \ *********************************************************** \ Re-initialise HeliOS dictionary to standard CORE vocabulary \ *********************************************************** \ This should always be used at the start of any program which \ is to be repeatedly recompiled. FORGET **CORE** \ ************************* \ Load include symbol files \ ************************* \ \ These "include files" are pre-compiled (for speed) versions of the \ Amiga includes and the Helios system includes. \ \ Uncomment the lines below for standalone compilation, but otherwise \ it is better to set these include files from the Helios Forth menus AMIGAINCLUDE HeliOS:HeliOS_AmigaInclude USERINCLUDE HeliOS:HeliOS_UserInclude \ **************************************** \ Create display imagery file name strings \ **************************************** \ These files are ordinary IFF's (and may be "PowerPacked" if required) \ \ The pictures here will be loaded into each of the display BitMaps. \ $CONSTANTL Slice1Pic $Helios:Source/Data/Pic1$ \ ************************************** \ Create display configuration constants \ ************************************** \ \ Collect all "display-specific" parameters here and generate "named" \ constants which make references easier than using numeric values. \ \ Collecting these together here makes it easier to adjust things at any \ time without having to search source code to replace values individually. \ 256 CONSTANT DisplayHeight \ Full PAL display 320 CONSTANT DisplayWidth \ Lores display 44 CONSTANT DisplayTopLine \ Display start DisplayWidth CONSTANT Slice1Width \ Lores width DisplayWidth 32 + CONSTANT Slice1RasterWidth \ Raster=SWidth+32 DisplayHeight CONSTANT Slice1Height \ Slice height DisplayHeight 32 + CONSTANT Slice1RasterHeight \ Slice Raster=DHgt+32 0 CONSTANT Slice1Mode \ Lores 3 CONSTANT Slice1Planes \ Slice bitplanes \ The calculation below takes the number of bitplanes and calculates \ how many colours this represents. \ \ One bitplane gives two colours. \ \ Each additional bitplane multiplies the number of colours by two. \ \ Performing a single LSL operation on any number multipies by 2, so we \ have a quick method of multiplying by two for our colour calculation. \ \ In this case, we need "2 to the power 3", which is 2*2*2=8. \ \ e.g. 2*2*2 \ ^ ^ ^ \ Total number of planes = 3 \ \ \ So, we take the first value two \ \ e.g. 2*2*2 \ ^ \ Initial start value of 2 \ \ and we now need to multiply it by two "the_number_of_planes minus_one" \ more times. \ \ e.g. 2*2*2 \ ^ ^ \ Total planes minus one \ \ \ So, Number of colours = 2 operated on by LSL NumberOfPlanes-1 times. \ 2 Slice1Planes 1- LSL CONSTANT Slice1Colours \ A-slice colours \ *********************** \ Error handling routines \ *********************** \ This error handler allows all errors to be routed via a comprehensive \ sequential closedown routine, which is associated with the HeliOS \ system error handler word ERROR". \ \ When ERROR" senses an error, it prints an associated error message \ delimited by '"' characters, and then closes everything down using the \ routine CLOSEDOWN below which you have supplied. \ \ This simplifies errors checks to the use of a single word, ERROR", which \ displays a text message and closes eveything down. \ 0 VARIABLE (CLOSEDOWN) : ?CLOSEDOWNERROR IF CR CR TYPE CR CR ." Press <Space> to quit!" CR CR WAITSPACE (CLOSEDOWN) @EXECUTE QUIT ELSE DDROP THEN ; LATESTCFA VARIABLE ERROR1 \ **************************************** \ Create display pointer storage variables \ **************************************** \ Here we create a set of "pointers", initially set to a "null" value. \ \ These "pointers" are set up as "long addresses" when various components \ of the display system are allocated and initialised. \ \ Note that initially these are all set to zero, and we clear them back \ to zero when we de-allocate the associated resource. \ \ These DPOINTERs are all initially set to "null" by using '0.'. \ \ When we allocate memory or Amiga system resources in the program at \ run-time, these pointers are updated to contain the 32-bit address \ of the newly allocated resource. \ \ Subsequently the symbolic DPOINTER name can be used in your code to \ represent the associated address. 0. DPOINTER Display1 \ Main Display structure pointer 0. DPOINTER Slice1 \ Slice 1 Slice structure pointer 0. DPOINTER Slice1_ColorMap \ Slice 1 ColourMap structure pointer 0. DPOINTER Slice1_RasInfo \ Slice 1 RasInfo structure pointer 0. DPOINTER Slice1_BMap \ Slice 1 BitMap structure pointer 0. DPOINTER Slice1_SliceControl \ Slice 1 SliceControl structure pointer \ ************* \ Colour tables \ ************* \ Each colour entry requies 2 bytes of storage space CREATEL Slice1_ColorTable \ Create longword pointer to table Slice1Colours 2* 0 ALLOTFILL \ Allocate Slice1 colours * 2 bytes \ ************************************* \ Copper strip for graduated background \ ************************************* 0. DVARIABLE Copper \ 32-bit CopperList pointer store 0. DVARIABLE CopperLength \ 32-bit CopperList length store : AddCopper \ Add custom copper list to display Display1 \ We are adding CopperList to Display1 Copper D@ ADDCOPPERSTRIP SORTSTRIPTABLE LINKSTRIPS DDROP ; : RemCopper \ Remove custom copper list from display Display1 \ We are removing CopperList from Display1 Copper D@ DFLAG IF REMCOPPERSTRIP LINKSTRIPS DDROP ELSE DDDROP THEN ; : Create_Copper COPPERSTART Copper D! 0 [ DECIMAL ] 45 [ HEX ] FFFE COPPERWAIT DROP 0100 18E COPPERMOVE DROP 0 [ DECIMAL ] 60 [ HEX ] FFFE COPPERWAIT DROP 0200 18E COPPERMOVE DROP 0 [ DECIMAL ] 75 [ HEX ] FFFE COPPERWAIT DROP 0300 18E COPPERMOVE DROP 0 [ DECIMAL ] 90 [ HEX ] FFFE COPPERWAIT DROP 0400 18E COPPERMOVE DROP 0 [ DECIMAL ] 105 [ HEX ] FFFE COPPERWAIT DROP 0500 18E COPPERMOVE DROP 0 [ DECIMAL ] 120 [ HEX ] FFFE COPPERWAIT DROP 0600 18E COPPERMOVE DROP 0 [ DECIMAL ] 135 [ HEX ] FFFE COPPERWAIT DROP 0700 18E COPPERMOVE DROP 0 [ DECIMAL ] 150 [ HEX ] FFFE COPPERWAIT DROP 0800 18E COPPERMOVE DROP 0 [ DECIMAL ] 165 [ HEX ] FFFE COPPERWAIT DROP 0900 18E COPPERMOVE DROP 0 [ DECIMAL ] 180 [ HEX ] FFFE COPPERWAIT DROP 0A00 18E COPPERMOVE DROP 0 [ DECIMAL ] 195 [ HEX ] FFFE COPPERWAIT DROP 0B00 18E COPPERMOVE DROP 0 [ DECIMAL ] 210 [ HEX ] FFFE COPPERWAIT DROP 0C00 18E COPPERMOVE DROP 0 [ DECIMAL ] 225 [ HEX ] FFFE COPPERWAIT DROP 0D00 18E COPPERMOVE DROP 0 [ DECIMAL ] 240 [ HEX ] FFFE COPPERWAIT DROP 0E00 18E COPPERMOVE DROP 0 [ DECIMAL ] 255 [ HEX ] FFFE COPPERWAIT DROP 0F00 18E COPPERMOVE DROP [ DECIMAL ] COPPEREND CopperLength D! Copper D! ADDCOPPER ; : Free_Copper \ Closes down and frees copperlist memory RemCopper Copper D@ FREEMEMORY ; \ *********************************** \ Create Display and Slice structures \ *********************************** \ This routine simply makes blank structures, which then need to be \ initialised later (in the CREATE_DISPLAY routine). : CREATE_DSLICES DS_SIZEOF MAKESTRUCTURE Display1 MAKEPOINTER \ Main "Display" structure SL_SIZEOF MAKESTRUCTURE Slice1 MAKEPOINTER \ Display "Slice" structure ; : FREE_DSLICES Slice1 DDUP FREEMEMORY CLEARPOINTER Display1 DDUP FREEMEMORY CLEARPOINTER ; \ ****************************** \ Create RasInfo structures etc. \ ****************************** : CREATE_RASINFO \ First allocate and initialise complete RasInfo structures. \ \ This routine automatically allocates all BitMaps etc. \ Slice1RasterWidth Slice1RasterHeight Slice1Planes OPENRASINFO DFLAG0= ERROR" Fail: RasInfo1" Slice1_RasInfo MAKEPOINTER \ Set invisible area "sprite margins" for slice RasInfo 16 Slice1_RasInfo ri_RxOffset INDEX!L 16 Slice1_RasInfo ri_RyOffset INDEX!L \ Store BitMap pointer - often useful for later reference Slice1_RasInfo ri_BitMap INDEXD@L Slice1_BMap MAKEPOINTER ; : FREE_RASINFO Slice1_RasInfo DDUP CLOSERASINFO CLEARPOINTER ; \ ******************************** \ Create Display/Slice Copperlists \ ******************************** \ This function builds the main display copperlist by: \ \ 1. Initialising the Slice data structure \ 2. Calling MAKECOPSTRIP for the slice, to build a copperlist \ 3. Calling MAKEDISPLAY to build the master Display copperlist \ : CREATE_DISPLAY \ First initialise main display structures Slice1 Display1 DS_Slice INDEXD!L Slice1Width Slice1 SL_DWidth INDEX!L Slice1Height Slice1 SL_DHeight INDEX!L DisplayTopLine Slice1 SL_DyOffset INDEX!L Slice1_RasInfo Slice1 SL_RasInfo INDEXD!L Slice1_ColorMap Slice1 SL_ColorMap INDEXD!L Slice1Mode Slice1 SL_Modes INDEX!L \ Generate copper list information for each of the display slices Slice1 MAKECOPSTRIP D0= ERROR" Fail: Slice1CopStrip" \ Make display Display1 MAKEDISPLAY D0= ERROR" Fail: Display1" ; : FREE_DISPLAY Display1 FREEDISPLAY Slice1 FREECOPSTRIP ; \ ******************************************************** \ Create SliceControl structures for double buffered slice \ ******************************************************** \ SliceControl structures are used to control any slices which perform \ mapping or scrolling functions, or which require double or triple \ playfield buffering. \ \ In this case we have one slice which does not scroll, is not mapped, \ but IS double buffered. \ : CREATE_SLICECONTROL \ Make SliceControl for double buffered bitmap display Slice1 0 0 MAKESLICECONTROL DFLAG0= ERROR" Fail: SliceControl1" Slice1_SliceControl MAKEPOINTER \ Install slice controls into HeliOS display control system Slice1_SliceControl INSTALLSLICECONTROL ; : FREE_SLICECONTROL CLEARSLICECONTROLS Slice1_SliceControl CLOSESLICECONTROL ; \ These routines load an IFF picture into supplied BitMap, and correctly \ initialises the supplied ColorTable. \ \ The ColorTable is then used to create an initialised ColorMap structure. \ : CREATE_IMAGERY Slice1_BMap Slice1_ColorTable Slice1Pic 10 2 DOSLIB \ Call to internal HeliOS library 10 <> ERROR" Fail: Slice1Pic" Slice1_ColorTable Slice1Colours MAKECOLORMAP \ Allocate ColourMap DFLAG0= ERROR" Fail: Slice1ColorMap" Slice1_ColorMap MAKEPOINTER ; : FREE_IMAGERY Slice1_ColorMap DDUP FREECOLORMAP CLEARPOINTER ; \ ************** \ Animation Demo \ ************** \ ************************ \ Animation Demo constants \ ************************ \ Set up a number of constants which determine various aspects of the \ demo, e.g. How many Bullets required \ \ Change these values as required \ 25 CONSTANT Bullet# \ Number of Bullets available 8 CONSTANT BulletSpeed \ Speed of Bullet 6 CONSTANT FiringRate \ Speed of gun reload 4 CONSTANT GunSpeed \ Speed of Gun movement 8 CONSTANT AlienMaxXSpeed \ Maximum speed of Alien movement 4 CONSTANT AlienMaxYSpeed \ Maximum speed of Alien movement \ **************************************************** \ Create animation demo pointers and storage variables \ **************************************************** 0. DPOINTER GunSpriteSet \ Gun sprite image 0. DPOINTER BulletSpriteSet \ Bullet sprite image 0. DPOINTER AlienSpriteSet \ Alien sprite images 0. DPOINTER AlienAnim \ Alien animation CREATE BulletTable \ Bullet sprite pointer storage table. Bullet# 4* 0 ALLOTFILL \ Space allocated = Number_of_Bullets*4 \ This table has to hold a number of \ 32-bit (4-byte) numbers, because \ each Bullet sprite is a 32-bit pointer CREATE BulletCollHandlerTable \ Bullet collision handler table Bullet# 4* 0 ALLOTFILL 0. DVARIABLE AlienCollHandler \ Alien collision handler pointer 0 VARIABLE FireTimer \ Gun reload rate store \ ************************************************** \ This routine is called to delay the Alien's return \ ************************************************** : AlienDelay DDROP \ Drop Alien pointer 50 SpriteAnim_CountDown AlienAnim INDEX!L \ Wait 50 VBlanks 0 SpriteAnim_CDForth AlienAnim INDEX!L \ Remove CD action word -3 SpriteAnim_CDFlags AlienAnim INDEX!L \ -3 = Remove ; \ ************************* \ Sprite collision routines \ ************************* \ This routine is called when a Bullet collides. : BulletHit 2 DDROPS \ Drop collisionmask and hit-object pointer DDUP SpriteCtrl_CollFlag D+ 0!L \ Disable further collisions REMOVESPRITE \ Remove Bullet ; \ This routine is called when the Alien collides. : AlienHit 3 DDROPS \ Drop collisionmask, "hitting" object, and object pointers 0 SpriteAnim_CollFlag AlienAnim INDEX!L \ Disable further collisions 0 SpriteAnim_UserData1 AlienAnim INDEX!L \ Stop X-movement (inc = 0) 0 SpriteAnim_UserData2 AlienAnim INDEX!L \ Stop Y-movement (inc = 0) 2 SpriteAnim_Speed AlienAnim INDEX!L \ Set explosion anim speed 9 SpriteAnim_Frames AlienAnim INDEX!L \ Number of frames 0 SpriteAnim_Current AlienAnim INDEX!L \ Start at frame 0 20 SpriteAnim_CountDown AlienAnim INDEX!L \ Run for 20 VBlanks -2 SpriteAnim_CDFlags AlienAnim INDEX!L \ Flags set after CountDown \ -2 = Go invisible ' AlienDelay CFA \ Get pointer to delay code SpriteAnim_CDForth AlienAnim INDEX!L \ Countdown code ; \ *************************** \ Create HitMasks and MeMasks \ *************************** \ Collisions can only occur between objects which have coincident bits \ set in HitMask-MeMask or MeMask-HitMask pairs \ \ Each bit of the HitMask/MeMask pair have a corresponding position in \ a collision table which stores an array of collision routines. \ \ In the event of a collision, the routine in an object's Collision Table \ corresponding to the HitMask-MeMask bit coincidence will be called \ with 3 parameters: the two colliding objects and the collision HitMask \ \ The stack on a collision call looks like this: \ \ CollisionHitMask(l) = Top 32-bit value on stack \ CollidingObject(l) = 2nd 32-bit value on stack \ This Object(l) = 3rd 32-bit value on stack \ \ Here are two examples: \ \ 00000000000000000000000000000010. = Object A HitMask \ 00000000000000000000000000000000. = Object B HitMask \ 00000000000000000000000000000001. = Object C HitMask \ \ 00000000000000000000000000000000. = Object A MeMask \ 00000000000000000000000000000011. = Object B MeMask \ 00000000000000000000000000000000. = Object C MeMask \ \ Would allow A and B to collide, B and C to collide, but not A and C. \ \ B and C would run the routine at position 1 in the collision table \ A and B would run the routine at position 2 in the collision table \ \ ----------------------------------------------------------- \ \ 00000000000000000000000000000011. = Object A HitMask \ 00000000000000000000000000000001. = Object B HitMask \ 00000000000000000000000000000001. = Object C HitMask \ \ 00000000000000000000000000000000. = Object A MeMask \ 00000000000000000000000000000000. = Object B MeMask \ 00000000000000000000000000000010. = Object C MeMask \ \ Would allow just A and C to collide \ \ A and C would run the routine at position 2 in the collision table \ BIN 00000000000000000000000000000001. DCONSTANT BulletHitMask 00000000000000000000000000000000. DCONSTANT AlienHitMask 00000000000000000000000000000000. DCONSTANT BulletMeMask 00000000000000000000000000000001. DCONSTANT AlienMeMask DECIMAL CREATEL BulletCollTable -1 , \ -1 = The "1" means there is 1 entry in table \ The "-" signifies that it is a HeliOS \ word rather than machine code FIND BulletHit , \ Find BulletHit and store HeliOS word CFA CREATEL AlienCollTable -1 , \ -1 = The "1" means there is 1 entry in table \ The "-" signifies that it is a HeliOS \ word rather than machine code FIND AlienHit , \ Find AlienHit and store HeliOS word CFA \ ************************* \ Set up collision handlers \ ************************* : CREATE_COLLISIONS Bullet# 0 DO GETCOLLHANDLER DFLAG0= ERROR" Fail: Bullet CollHandler" DDUP BulletCollHandlerTable I 4* + D! BulletTable I 4* + D@ SpriteCtrl_CollHandler INDEXD!L LOOP GETCOLLHANDLER DFLAG0= ERROR" Fail: Alien CollHandler" DDUP AlienCollHandler D! AlienAnim SpriteAnim_CollHandler INDEXD!L ; : FREE_COLLISIONS AlienCollHandler D@ FREECOLLHANDLER Bullet# 0 DO Bullet# 1- I - 4* BulletCollHandlerTable + D@ FREECOLLHANDLER LOOP ; \ ***************** \ Boundary routines \ ***************** \ Alien boundary sense routine : AlienBoundary SpriteCtrl_VisiHit INDEX@L \ Get boundary hit mask word 0 BTST \ Did it hit left boundary IF AlienAnim SpriteAnim_UserData1 INDEX@L \ Reverse X-motion NEGATE AlienAnim SpriteAnim_UserData1 INDEX!L ELSE 1 BTST \ Did it hit right boundary IF AlienAnim SpriteAnim_UserData1 INDEX@L \ Reverse X-motion NEGATE AlienAnim SpriteAnim_UserData1 INDEX!L THEN THEN 2 BTST \ Did it hit upper boundary IF DROP AlienAnim SpriteAnim_UserData2 INDEX@L \ Reverse Y-motion NEGATE AlienAnim SpriteAnim_UserData2 INDEX!L ELSE 3 BTST \ Did it hit lower boundary IF DROP AlienAnim SpriteAnim_UserData2 INDEX@L \ Reverse Y-motion NEGATE AlienAnim SpriteAnim_UserData2 INDEX!L ELSE DROP THEN THEN ; \ Remove Bullet - called when bullet hits boundary at edge of display : BulletRemove RemoveSprite ; \ **************************** \ User input response routines \ **************************** : Fire RAWKEY @ 64 = JOY1FIRE OR IF FireTimer @ 0< IF FiringRate FireTimer ! Bullet# 0 DO BulletTable I 4* + D@ SETSTRUCTURE1 SpriteCtrl_Running STRUCTURE1 @L 0= IF 1 SpriteCtrl_Running STRUCTURE1 !L GunSpriteSet 8. D+ D@L SETSTRUCTURE2 SpriteCtrl_XPos STRUCTURE2 @L 5 + SpriteCtrl_XPos STRUCTURE1 !L SpriteCtrl_YPos STRUCTURE2 @L 2 - SpriteCtrl_YPos STRUCTURE1 !L SpriteCtrl_UserData1 STRUCTURE1 SpriteCtrl_YAdd STRUCTURE1 D!L BulletSpeed NEGATE SpriteCtrl_UserData1 STRUCTURE1 !L 1 SpriteCtrl_CollFlag STRUCTURE1 !L 1 SpriteCtrl_Flags STRUCTURE1 !L 0. STRUCTURE1 INSTALLSPRITE LEAVE THEN LOOP ELSE FireTimer DEC THEN THEN ; : MoveGun RAWKEY @ 78 = JOY1LEFTRIGHT 0> OR IF GunSpeed 19 320 GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+ LIMIT+!L ELSE RAWKEY @ 79 = JOY1LEFTRIGHT 0< OR IF GunSpeed NEGATE 19 320 GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+ LIMIT+!L THEN THEN ; \ *********************************** \ Create sprite and animation objects \ *********************************** : CREATE_SPRITES \ ---------- \ Gun sprite \ ---------- Slice1_BMap 154 272 13 15 1 MAKESPRITESET DFLAG0= ERROR" Fail: Gun SpriteSet" GunSpriteSet MAKEPOINTER GunSpriteSet 8. D+ D@L DDUP SpriteCtrl_XPos D+ 170 -ROT !L SpriteCtrl_YPos D+ 239 -ROT !L Slice1_SliceControl GunSpriteSet INITSPRITESET \ ------------- \ Bullet sprite \ ------------- Slice1_BMap 159 279 3 7 1 MAKESPRITESET DFLAG0= ERROR" Fail: Bullet SpriteSet" BulletSpriteSet MAKEPOINTER Slice1_SliceControl BulletSpriteSet INITSPRITESET Bullet# 0 DO BulletSpriteSet 8. D+ D@L CLONESPRITE DFLAG0= ERROR" Fail: Bullet Sprite" DDUP BulletTable I 4* + D! SETSTRUCTURE1 BulletCollTable SpriteCtrl_CollTable STRUCTURE1 D!L BulletHitMask SpriteCtrl_HitMask STRUCTURE1 D!L BulletMeMask SpriteCtrl_MeMask STRUCTURE1 D!L -2 SpriteCtrl_VisiZone STRUCTURE1 !L 4 SpriteCtrl_LeftZone STRUCTURE1 !L 4 SpriteCtrl_RightZone STRUCTURE1 !L 4 SpriteCtrl_UpZone STRUCTURE1 !L 10 SpriteCtrl_DownZone STRUCTURE1 !L ' BulletRemove CFA SpriteCtrl_VisiForth STRUCTURE1 !L LOOP \ ------------- \ Alien sprites \ ------------- Slice1_BMap 24 276 14 9 9 MAKESPRITESET DFLAG0= ERROR" Fail: Alien SpriteSet" AlienSpriteSet MAKEPOINTER Slice1_SliceControl AlienSpriteSet INITSPRITESET \ --------------- \ Alien animation \ --------------- SpriteAnim_SIZEOF MAKESTRUCTURE DFLAG0= ERROR" Fail: AlienAnim" AlienAnim MAKEPOINTER AlienSpriteSet 8. D+ SpriteAnim_Image AlienAnim INDEXD!L AlienCollTable SpriteAnim_CollTable AlienAnim INDEXD!L AlienHitMask SpriteAnim_HitMask AlienAnim INDEXD!L AlienMeMask SpriteAnim_MeMask AlienAnim INDEXD!L 6 SpriteAnim_AnimControl AlienAnim INDEX!L 1 SpriteAnim_Skip AlienAnim INDEX!L 1 SpriteAnim_VisiZone AlienAnim INDEX!L 4 SpriteAnim_LeftZone AlienAnim INDEX!L 4 SpriteAnim_RightZone AlienAnim INDEX!L 4 SpriteAnim_UpZone AlienAnim INDEX!L 25 SpriteAnim_DownZone AlienAnim INDEX!L ' AlienBoundary CFA SpriteAnim_VisiForth AlienAnim INDEX!L SpriteAnim_UserData1 AlienAnim D+ SpriteAnim_XAdd AlienAnim INDEXD!L SpriteAnim_UserData2 AlienAnim D+ SpriteAnim_YAdd AlienAnim INDEXD!L ; : FREE_SPRITES AlienAnim DDUP FREEMEMORY CLEARPOINTER AlienSpriteSet DDUP FREESPRITESET CLEARPOINTER Bullet# 0 DO Bullet# 1- I - 4* BulletTable + DUP D@ FREESPRITE D0! LOOP BulletSpriteSet DDUP FREESPRITESET CLEARPOINTER GunSpriteSet DDUP FREESPRITESET CLEARPOINTER ; \ **************** \ Re-Install Alien \ **************** : ?Install_Alien SpriteAnim_Running AlienAnim INDEX@L 0= IF 0 SpriteAnim_CDForth AlienAnim INDEX!L 0 SpriteAnim_CountDown AlienAnim INDEX!L 1 SpriteAnim_Running AlienAnim INDEX!L 1 SpriteAnim_Flags AlienAnim INDEX!L 1 SpriteAnim_CollFlag AlienAnim INDEX!L 280 RND 26 + SpriteAnim_XPos AlienAnim INDEX!L 36 SpriteAnim_YPos AlienAnim INDEX!L 0 SpriteAnim_Current AlienAnim INDEX!L 2 SpriteAnim_Speed AlienAnim INDEX!L 4 SpriteAnim_Frames AlienAnim INDEX!L AlienMaxXSpeed RND 2 MAX 1 RND IF NEGATE THEN SpriteAnim_UserData1 AlienAnim INDEX!L AlienMaxYSpeed RND 1 MAX 1 RND IF NEGATE THEN SpriteAnim_UserData2 AlienAnim INDEX!L AlienAnim INSTALLSPRITEANIM THEN ; \ ********************* \ Close down everything \ ********************* : CLOSEDOWN FREE_COLLISIONS FREE_SPRITES FREE_COPPER FREE_SLICECONTROL FREE_DISPLAY FREE_IMAGERY FREE_RASINFO FREE_DSLICES RESETERROR" ; LATESTCFA (CLOSEDOWN) ! : TestDisplay \ Start of program SCRCLR CR ." ********************************************************* " CR 6 FPENSET ." SIMPLE ANIMATION DEMO" CR 1 FPENSET ." ********************************************************* " CR ." This code demonstrates how to create a simple animation " CR ." in HeliOS." CR CR ." This builds upon the following Demos:" CR CR ." Demo1_SinglePF.src" CR ." Demo2_SinglePFCopper.src" CR ." Demo3_SimpleSprite.src" CR ." Demo4_MultiSprites.src" CR ." Demo5_MultiSptCollide.src" CR CR ." This code is then expanded in the following Demos:" CR CR ." Demo7_MultiAnim.src" CR ." **********************************************************" CR 6 FPENSET ." Press <Space> or <L-Mouse> to see Demo" CR 3 FPENSET ." Use a Joystick to move the gun turret and fire bullets" CR ." **********************************************************" CR WAITSPACE SCRCLR ERROR1 SETERROR" \ Redirect system errors to our routine ERROR1 CREATE_DSLICES CREATE_RASINFO CREATE_IMAGERY CREATE_DISPLAY CREATE_SLICECONTROL CREATE_COPPER CREATE_SPRITES CREATE_COLLISIONS HeliOS_On GunSpriteSet 8. D+ D@L INSTALLSPRITE 1 FrameRate !L Display1 SHOWDISPLAY BEGIN WAITFRAME ?Install_Alien Fire MoveGun ?TERMINAL 27 = UNTIL -3 AlienAnim SpriteAnim_Flags INDEX!L -3 GunSpriteSet 8. D+ D@L SpriteCtrl_Flags INDEX!L Bullet# 0 DO -3 BulletTable I 4* + D@ SpriteCtrl_Flags INDEX!L LOOP 5 DELAY HeliOS_Off CLOSEDOWN ; TestDisplay